use "Figure5.dta", clear

generate pos=3
replace pos=9 if industry=="Transport/Warehousing"

twoway (lfit average_creditgrowth average_tangible) (scatter average_creditgrowth average_tangible, legend(off) mcolor(edkblue) mlabel(industry) xscale(range(85)) ytitle("Average Credit Growth") xtitle("Average TS Share")) 